10 HOME
20 PRINT CHR$(4);"PR#3"

36 INVERSE:VTAB 1:HTAB 20:PRINT"RULE PRINTER TOOL (40320 RULE-LINES TOTALLY)"
38 VTAB 23:HTAB 1:PRINT"                                                                               ":VTAB 23:HTAB 26:PRINT"PRESS ANY KEY TO BE CONTINUE":VTAB 23:HTAB 55:GET Z$:NORMAL

40 HOME



9000 LP=1:CU=0

9001 IF LP=1 THEN NU=2345678:GOTO 9010
9002 IF LP=2 THEN NU=1345678:GOTO 9010
9003 IF LP=3 THEN NU=1245678:GOTO 9010
9004 IF LP=4 THEN NU=1235678:GOTO 9010
9005 IF LP=5 THEN NU=1234678:GOTO 9010
9006 IF LP=6 THEN NU=1234578:GOTO 9010
9007 IF LP=7 THEN NU=1234568:GOTO 9010
9008 IF LP=8 THEN NU=1234567:GOTO 9010
9238 IF LP=9 THEN END


9010 N1=LP
9020 N2=INT(NU/1000000)
9030 N3=INT((NU-N2*1000000)/100000)
9040 N4=INT((NU-N2*1000000-N3*100000)/10000)
9050 N5=INT((NU-N2*1000000-N3*100000-N4*10000)/1000)
9060 N6=INT((NU-N2*1000000-N3*100000-N4*10000-N5*1000)/100)
9070 N7=INT((NU-N2*1000000-N3*100000-N4*10000-N5*1000-N6*100)/10)
9080 N8=INT((NU-N2*1000000-N3*100000-N4*10000-N5*1000-N6*100-N7*10))

9100 IF N1=N2 OR N1=N3 OR N1=N4 OR N1=N5 OR N1=N6 OR N1=N7 OR N1= N8 THEN 9230
9110 IF N2=N3 OR N2=N4 OR N2=N5 OR N2=N6 OR N2=N7 OR N2=N8 THEN 9230
9120 IF N3=N4 OR N3=N5 OR N3=N6 OR N3=N7 OR N3=N8 THEN 9230
9130 IF N4=N5 OR N4=N6 OR N4=N7 OR N4=N8 THEN 9230
9140 IF N5=N6 OR N5=N7 OR N5=N8 THEN 9230
9150 IF N6=N7 OR N6=N8 THEN 9230
9160 IF N7=N8 THEN 9230

9200 IF (N1=0 OR N1=9) OR (N2=0 OR N2=9) OR (N3=0 OR N3=9) OR (N4=0 OR N4=9) OR (N5=0 OR N5=9) OR (N6=0 OR N6=9) OR (N7=0 OR N7=9) OR (N8=0 OR N8=9) THEN 9230

9210 M(1)=N1:M(2)=N2:M(3)=N3:M(4)=N4:M(5)=N5:M(6)=N6:M(7)=N7:M(8)=N8:NU=NU+9




9212 GOSUB 36100

9220 CU=CU+1

9226 PRINT T$;CU:T$=""


9229 GOTO 9010




9230 REM


9240 IF LP=1 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8765432 THEN LP=LP+1:GOTO 9001
9242 IF LP=2 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8765431 THEN LP=LP+1:GOTO 9001
9243 IF LP=3 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8765421 THEN LP=LP+1:GOTO 9001
9244 IF LP=4 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8765321 THEN LP=LP+1:GOTO 9001
9245 IF LP=5 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8764321 THEN LP=LP+1:GOTO 9001
9246 IF LP=6 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8754321 THEN LP=LP+1:GOTO 9001
9247 IF LP=7 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 8654321 THEN LP=LP+1:GOTO 9001
9248 IF LP=8 AND (N2*1000000+N3*100000+N4*10000+N5*1000+N6*100+N7*10+N8) > 7654321 THEN LP=LP+1:GOTO 9001



9300 NU=NU+9:GOTO 9020 


36100 FOR I=1 TO 8
36102 IF M(I)=1 THEN P$(I)="R "
36104 NEXT I
36110 FOR I=1 TO 8
36112 IF M(I)=2 THEN P$(I)="DR "
36114 NEXT I
36120 FOR I=1 TO 8
36122 IF M(I)=3 THEN P$(I)="D "
36124 NEXT I
36130 FOR I=1 TO 8
36132 IF M(I)=4 THEN P$(I)="DL "
36134 NEXT I
36140 FOR I=1 TO 8
36142 IF M(I)=5 THEN P$(I)="L "
36144 NEXT I
36150 FOR I=1 TO 8
36152 IF M(I)=6 THEN P$(I)="UL "
36154 NEXT I
36160 FOR I=1 TO 8
36162 IF M(I)=7 THEN P$(I)="U "
36164 NEXT I
36170 FOR I=1 TO 8
36172 IF M(I)=8 THEN P$(I)="UR "
36174 NEXT I

36200 FOR I=1 TO 8
36202 T$=T$+P$(I)+" "
36206 NEXT I
36208 T$=T$+"  ;  "

36300 RETURN

